home *** CD-ROM | disk | FTP | other *** search
/ Baron's Profiles of Ameri… Colleges (19th Edition) / Baron's Profiles of American Colleges (19th Edition).iso / setup.inf < prev    next >
Text File  |  1992-08-29  |  16KB  |  377 lines
  1. SetVariable (TitleName, "Profiles of American Colleges")   ; Name of the title
  2.  
  3. SetVariable (TitleMVB, "paclri")          ; Basename of the MVB file
  4.  
  5. SetVariable (TitleSrcDir, "pac\") ; Source subdirectory of the title
  6.  
  7. GetCurPath (ViewerSrcDir)                 ; Source directory of the Viewer
  8. SetVariable (ViewerSize, 1 000 000)       ; Size of the Viewer files that will
  9.                                           ;  be copied over (measured in bytes)
  10. SetVariable (ViewerDestDir, "C:\VIEWER\")         ; Destination directory for 
  11.                                                   ;  the Viewer.  Set default
  12.                                                   ;  here.
  13.  
  14. WindowTitle (<TitleName> " Setup")
  15.  
  16.  
  17. ; Set the instruction text used in the initial instructions window.
  18. ; Add Help instructions if the file SETUP.HLP exists.
  19. ;
  20. SetVariable (InitialInstructions, 
  21.          "Click on {\b OK} or press {\b Enter} to continue.  "
  22.          "To abort the setup, click on the {\b Exit} button at the "
  23.          "bottom right corner of the screen, or press {\b F3}.  ")
  24.  
  25.  
  26. IfFileExistsGoto ("SETUP.HLP", AddHelpInstructions)
  27.  
  28.  
  29.          Goto (DisplayInitialMessage)
  30. AddHelpInstructions:
  31.          SetVariable (InitialInstructions, 
  32.                  <InitialInstructions> "You can always obtain help by "
  33.                  "clicking on the {\b Help} button or pressing {\b F1}.  ")
  34.  
  35.  
  36. ; Display the initial message.
  37. ;
  38. DisplayInitialMessage:
  39. DisplayMessage (
  40.          "The Setup program will install " <TitleName> " and the Multimedia "
  41.          "Viewer.",
  42.          <InitialInstructions>)
  43.  
  44. ;
  45. GetFromWinIni (ViewerDestDirTemp, 
  46.          "Multimedia Viewer", "ViewerPath", "Undefined")
  47.  
  48.  
  49. IfEqualGoto (<ViewerDestDirTemp>, "Undefined", PromptViewerDestDir)
  50. SetVariable (ViewerDestDir, <ViewerDestDirTemp>)
  51.  
  52.  
  53. AskAgain:
  54.  
  55. PromptViewerDestDir:
  56. PromptPath (ViewerDestDir, <ViewerDestDir>,
  57.          "Where should Setup install the Multimedia Viewer?",
  58.          "Modify the default path if necessary, and then click on {\b OK} or "
  59.          "press {\b Enter} to continue.  ",
  60.          "The path is currently not valid.  You must specify a drive "
  61.          "letter, a colon, and a directory from the root of the drive.  ")
  62.  
  63. ; Don't allow Viewer to be installed in the Windows directory
  64. ;
  65. GetWinPath (WinPath)
  66.  
  67. GetWinSystemPath (SystemPath)
  68. IfNotEqualGoto (<ViewerDestDir>, <WinPath>, CheckSpace)
  69. DisplayMessage (
  70.          "You cannot install the Viewer into the Windows directory.  "
  71.          "Please enter another directory.",
  72.          "Click on {\b OK} or press {\b Enter} to enter another directory "
  73.          "for Viewer.")
  74. Goto (PromptViewerDestDir)
  75.  
  76.  
  77. CheckSpace:
  78. GetSpaceAvailable (SpaceAvailable, <ViewerDestDir>)
  79.  
  80. IfLowerGoto (<ViewerSize>, <SpaceAvailable>, ViewerDestDirOK)
  81.  
  82.  
  83. AskYesNo (Prompt, "Yes",
  84.          "There may not be enough space to install the Multimedia Viewer.  "
  85.          "Would you like to enter a new path for the files?  ",
  86.          "Click on {\b Yes} or press {\b 'Y'} to enter a new path for the "
  87.          "Multimedia Viewer files.\par "
  88.          "Click on {\b No} or press {\b 'N'} to continue anyway.\par "
  89.          "Click on the {\b Exit} button or press {\b F3} to exit Setup.  "
  90.          "You may wish to exit Setup and make some more space on your hard "
  91.          "disk.  Run Setup again when there is enough space on your hard "
  92.          "disk.  ")
  93. IfEqualGoto (<Prompt>, "Yes", PromptViewerDestDir)
  94.  
  95.  
  96. ViewerDestDirOK:
  97. AskYesNo (AskAgain, "No", 
  98.          "Would you like to change anything before proceeding with "
  99.          "the installation?",
  100.          "Click on {\b Yes} or press {\b 'Y'} to reenter options.\par "
  101.          "Click on {\b No} or press {\b 'N'} to proceed with installation.  ")
  102. IfEqualGoto (<AskAgain>, "Yes", AskAgain)
  103.  
  104.  
  105. MakePath (<ViewerDestDir>)
  106.  
  107. OpenCopyProgress (
  108.          "Setup is copying the Multimedia Viewer runtime files.",
  109.          "Please wait while Setup is copying files.")
  110.  
  111. IfFileExistsGoto (<ViewerDestDir> "FTENGINE.DLL", DontCopyFTENGINE)
  112. IfSysFileExistsGoto ("FTENGINE.DLL", DontCopyFTENGINE)
  113. CopyFile ("FTENGINE.DLL", <ViewerDestDir> "FTENGINE.DLL",  41000)
  114. DontCopyFTENGINE:
  115.  
  116. IfFileExistsGoto (<ViewerDestDir> "FTUI.DLL", DontCopyFTUI)
  117. IfSysFileExistsGoto ("FTUI.DLL", DontCopyFTUI)
  118. CopyFile ("FTUI.DLL",     <ViewerDestDir> "FTUI.DLL",      54000)
  119. DontCopyFTUI:
  120.  
  121. ;IfFileExistsGoto (<ViewerDestDir> "MMP.DLL", DontCopyMMP)
  122. ;IfSysFileExistsGoto ("MMP.DLL", DontCopyMMP)
  123. ;CopyFile ("MMP.DLL",      <SystemPath> "MMP.DLL",       10000)
  124. ;DontCopyMMP:
  125.  
  126. IfFileExistsGoto (<ViewerDestDir> "MVAFF.DLL", DontCopyMVAFF)
  127. IfSysFileExistsGoto ("MVAFF.DLL", DontCopyMVAFF)
  128. CopyFile ("MVAFF.DLL",    <ViewerDestDir> "MVAFF.DLL",     39000)
  129. DontCopyMVAFF:
  130.  
  131. IfFileExistsGoto (<ViewerDestDir> "MVAPI.DLL", DontCopyMVAPI)
  132. IfSysFileExistsGoto ("MVAPI.DLL", DontCopyMVAPI)
  133. CopyFile ("MVAPI.DLL",    <ViewerDestDir> "MVAPI.DLL",      7000)
  134. DontCopyMVAPI:
  135.  
  136. IfFileExistsGoto (<ViewerDestDir> "MVAUDDLG.DLL", DontCopyMVAUDDLG)
  137. IfSysFileExistsGoto ("MVAUDDLG.DLL", DontCopyMVAUDDLG)
  138. CopyFile ("MVAUDDLG.DLL", <ViewerDestDir> "MVAUDDLG.DLL",  38000)
  139. DontCopyMVAUDDLG:
  140.  
  141. IfFileExistsGoto (<ViewerDestDir> "MVAUDIO.DLL", DontCopyMVAUDIO)
  142. IfSysFileExistsGoto ("MVAUDIO.DLL", DontCopyMVAUDIO)
  143. CopyFile ("MVAUDIO.DLL",  <ViewerDestDir> "MVAUDIO.DLL",    8000)
  144. DontCopyMVAUDIO:
  145.  
  146. IfFileExistsGoto (<ViewerDestDir> "MVBMP.DLL", DontCopyMVBMP)
  147. IfSysFileExistsGoto ("MVBMP.DLL", DontCopyMVBMP)
  148. CopyFile ("MVBMP.DLL",    <ViewerDestDir> "MVBMP.DLL",     39000)
  149. DontCopyMVBMP:
  150.  
  151. ;IfFileExistsGoto (<ViewerDestDir> "QKHOOK.DLL", DontCopyQKHOOK)
  152. ;IfSysFileExistsGoto ("QKHOOK.DLL", DontCopyQKHOOK)
  153. ;CopyFile ("QKHOOK.DLL",   <ViewerDestDir> "QKHOOK.DLL",     6000)
  154. ;DontCopyQKHOOK:
  155.  
  156. ;IfFileExistsGoto (<ViewerDestDir> "QUICKEYS.EXE", DontCopyQUICKEYS)
  157. ;IfSysFileExistsGoto ("QUICKEYS.EXE", DontCopyQUICKEYS)
  158. ;CopyFile ("QUICKEYS.EXE", <ViewerDestDir> "QUICKEYS.EXE",  15000)
  159. ;DontCopyQUICKEYS:
  160.  
  161. IfFileExistsGoto (<ViewerDestDir> "VIEWER.EXE", DontCopyVIEWER)
  162. IfSysFileExistsGoto ("VIEWER.EXE", DontCopyVIEWER)
  163. CopyFile ("VIEWER.EXE",   <ViewerDestDir> "VIEWER.EXE",   250000)
  164. DontCopyVIEWER:
  165.  
  166.          ;; CloseCopyProgress ()
  167.          ;; --------------------
  168.          ;; This command closes the copy progress bar.
  169.  
  170. CloseCopyProgress ()
  171.  
  172.  
  173.  
  174.          ;; OpenProgmanProgress (Message, Instructions)
  175.          ;; -------------------------------------------
  176.          ;; This command begins a Program Manager installation section.
  177.          ;; This command will put up a progress bar with the message 'Message'
  178.          ;; and the instructions 'Instructions'.  Following this command, only
  179.          ;; the commands 'SetProgressBarMsg', 'OpenProgmanGroup', 'ErrorExit',
  180.          ;; 'AddProgmanItem', 'Goto', 'IfEqualGoto', 'IfNotEqualGoto',
  181.          ;; 'IfLowerGoto', 'IfHigherGoto', 'IfFileExistsGoto', 
  182.          ;; 'IfSysFileExistsGoto', and 'Pause' are
  183.          ;; allowed until the 'CloseProgmanProgress' command is reached.  An
  184.          ;; error is reported and Setup is aborted if any other commands are
  185.          ;; encountered while the progress bar is displayed.
  186.  
  187. ; Begin adding Progam Manager groups
  188. ;
  189. OpenProgmanProgress (
  190.          "Setup is adding Program Manager groups.",
  191.          "Please wait while Setup adds {\b Program Manager} groups".)
  192.  
  193.          ;; OpenProgmanGroup (Group[,  DeleteFlag])
  194.          ;; ---------------------------------------
  195.          ;; This command will set up a DDE conversation with the Program 
  196.          ;; Manager and open the program group entitled 'Group'.  If the 
  197.          ;; optional string 'Delete' is specified and is equal to "Delete", 
  198.          ;; then the specified group will be deleted if it exists, before it is
  199.          ;; created.  Normally this Delete flag is specified to create a new 
  200.          ;; program group, and is omitted to add to an existing group. 
  201.          ;; 
  202.          ;; The progress bar will display the words "Opening" followed by the
  203.          ;; name of the ProgMan group.  If OpenProgmanGroup fails then no error
  204.